home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 40 / 040.d81 / 1670 disable ans (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  1KB  |  60 lines
  1. 10 poke53280,.:poke53281,.
  2. 11 print"[147]"
  3. 12 a$="[204] [207] [193] [196] [211] [212] [193][160][210]":c$(1)="[151]":c$(2)="[152]":c$(3)="[155]":c$(4)="":c$(5)="[158]"
  4. 15 forx=1to5
  5. 20 print""c$(x)a$
  6. 21 ford=1to75:next
  7. 25 next
  8. 26 print"";
  9. 27 forx=1tolen(a$):print"[152][163]";:
  10. 28 ford=1to20:next
  11. 29 next:print:print" ":ford=1to15:next
  12. 30 print"               [208]resents"
  13. 40 print"            [154] [195]opyright 1987"
  14. 41 print"        [208]ress [211][208][193][195][197] [212]o [195]ontinue"
  15. 50 print""
  16. 52 a$="               1 6 7 0"
  17. 53 gosub 1000
  18. 54 a$="             [193] [206] [211] [215] [197] [210]"
  19. 55 gosub 1000
  20. 56 a$="            [196] [201] [211] [193][160][194] [204][160][197]"
  21. 57 gosub 1000
  22. 60 getb$:ifb$=" "then70
  23. 61 goto 60
  24. 70 print"[147]"
  25. 71 print"   [158]       1670 [193]nswer [196]isable
  26. 72 [153]" print#         tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(
  27. 73 print"         1[152]) [154][196]isable [193]uto [193]nswer
  28. 74 [153]"         2print#) cont(NULL)uit peekack (NULL)o (NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL)
  29. 75 print"[145]         [197]nter [211]election  [152](1 [153][207][210] 2[152])
  30. 80 [161]a$:[139]a$[178]""[167] 80
  31. 81 [139]a$[178]"1" [167] 100
  32. 82 [139]a$[178]"2" [167] 200
  33. 83 [137] 80
  34. 99 [128]
  35. 100 [143]
  36. 105 [143] line 125 disables the answer
  37. 110 [143]
  38. 120 [159]5,2,3,[199](8)[170][199](0)
  39. 125 [152]5,"atn(NULL)(NULL)0=0"
  40. 130 [160]5
  41. 135 [153]"load"
  42. 137 [153]"atn(NULL)(NULL)(NULL) atn(NULL)(NULL)(NULL)val(NULL) right$(NULL) (NULL)(NULL)(NULL) str$right$(NULL)atnpeek(NULL)valstr$"
  43. 138 [129]a[178]1[164]1000:[130]:
  44. 140 [137] 70
  45. 150 :
  46. 160 :
  47. 190 [143]
  48. 195 [143] reconnect with loadstar.
  49. 199 [143]
  50. 200 [153]"on        str$o (NULL)ou (NULL)ish (NULL)o (NULL)uit? ((NULL)/(NULL))    "
  51. 201 [161]a$:[139]a$[178]"n"[176]a$[178]"(NULL)"[167]75
  52. 202 [139]a$[178]"y"[176]a$[178]"(NULL)"[167]250
  53. 205 [137] 201
  54. 250 [159]15,8,15,"r0:hello connect=hello connect":[132]15,er:[160]15
  55. 251 [139]er[179][177]63 [167][153]"load":[128]
  56. 255 [147]"hello connect",8,1
  57. 1000 [153]:[129]x[178]1[164][195](a$)
  58. 1010 [153]"on"[201](a$,x)
  59. 1020 [130]:[153]:[142]
  60.